home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / td187src.lzh / MTPOPUPS.D < prev    next >
Text File  |  1991-06-08  |  2KB  |  41 lines
  1. DEFINITION MODULE mtPopups;
  2.  
  3. FROM SYSTEM     IMPORT  ADDRESS;
  4. FROM MagicSys   IMPORT  Byte, ByteSet,
  5.                         sWORD, sINTEGER, sCARDINAL, sBITSET,
  6.                         lWORD, lINTEGER, lCARDINAL, lBITSET;
  7.  
  8.  
  9. (* ALLE Menus können auch über die Tastatur bedient werden:
  10.  *
  11.  * RETURN / ENTER       Selektierten Eintrag bestätigen, Menü beenden
  12.  * UNDO                 Menü abbrechen bzw. zurück zum Hauptmenü
  13.  * Cursor hoch          Eintrag über aktuellem Eintrag selektieren
  14.  * Cursor runter        Eintrag unter aktuellem Eintrag selektieren
  15.  *)
  16.  
  17.  
  18. PROCEDURE PopupMenu (menu: ADDRESS; title: ARRAY OF CHAR): sINTEGER; 
  19. (* Macht aus einer Resource-Menuzeile ein Popupmenu. Dropdown-Menüs werden
  20.  * als Submenüs dargestellt.  Soll ein Menu-Title kein Dropdown erhalten,
  21.  * so muß dieser mit dem EXIT-Flag versehen werden.  Pro SubMenü dürfen
  22.  * maximal 50 Einträge verwendet werden.  Die Prozedur returniert die
  23.  * Objektnummer des selektierten Eintrags.
  24.  *
  25.  * menu =       Adresse der Menuzeilen-Resource
  26.  * title =      Titelzeile für das Menü. Submenüs bekommen automatisch
  27.  *              den Menütitel als Titelzeile verpasst.
  28.  *)
  29.  
  30.  
  31. PROCEDURE StringPopup (VAR string: ARRAY OF CHAR; title: ARRAY OF CHAR): sINTEGER;
  32. (* Generiert Popupmenü aus einem String.  Keine Submenüs möglich! Die 
  33.  * einzelnen Einträge müssen durch ein | getrennt sein:
  34.  *
  35.  * "  Eintrag 1|  Eintrag 2|  Eintrag 3" 
  36.  *
  37.  * Maximal 50 Einträge möglich.
  38.  *)
  39.  
  40. END mtPopups.
  41.